home *** CD-ROM | disk | FTP | other *** search
- object frmTrackSelect: TfrmTrackSelect
- Left = 268
- Top = 175
- Width = 399
- Height = 369
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- Caption = 'RCCD Track Selection:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 391
- Height = 81
- Align = alTop
- BevelOuter = bvNone
- Caption = 'Panel1'
- TabOrder = 0
- object Label1: TLabel
- Left = 28
- Top = 8
- Width = 35
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Drive:'
- FocusControl = edtDrive
- end
- object Label2: TLabel
- Left = 28
- Top = 36
- Width = 35
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Artist:'
- FocusControl = edtArtist
- end
- object Label3: TLabel
- Left = 28
- Top = 60
- Width = 35
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Title:'
- FocusControl = edtTitle
- end
- object lblCDDBSerialNumber: TLabel
- Left = 124
- Top = 8
- Width = 105
- Height = 13
- AutoSize = False
- Caption = 'CDDB Serial Number:'
- FocusControl = edtSerialNumber
- end
- object edtDrive: TEdit
- Left = 68
- Top = 4
- Width = 45
- Height = 21
- TabStop = False
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- end
- object edtArtist: TEdit
- Left = 68
- Top = 32
- Width = 281
- Height = 21
- TabOrder = 1
- Text = 'New Artist'
- end
- object edtTitle: TEdit
- Left = 68
- Top = 56
- Width = 281
- Height = 21
- TabOrder = 2
- Text = 'New Title'
- end
- object edtSerialNumber: TEdit
- Left = 236
- Top = 4
- Width = 89
- Height = 21
- TabStop = False
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 3
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 315
- Width = 391
- Height = 27
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object Panel7: TPanel
- Left = 220
- Top = 0
- Width = 171
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object btnCancel: TButton
- Left = 92
- Top = 2
- Width = 75
- Height = 25
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 0
- OnClick = btnCancelClick
- end
- object btnOK: TButton
- Left = 4
- Top = 2
- Width = 75
- Height = 25
- Caption = '&OK'
- ModalResult = 1
- TabOrder = 1
- OnClick = btnOKClick
- end
- end
- object btnHelp: TButton
- Left = 4
- Top = 2
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 1
- OnClick = btnHelpClick
- end
- end
- object Panel3: TPanel
- Left = 149
- Top = 81
- Width = 77
- Height = 234
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 2
- object btnAdd: TSpeedButton
- Left = 14
- Top = 24
- Width = 61
- Height = 25
- Caption = 'A&dd ->'
- Enabled = False
- OnClick = btnAddClick
- end
- object btnRemove: TSpeedButton
- Left = 14
- Top = 52
- Width = 61
- Height = 25
- Caption = '<- &Remove'
- Enabled = False
- OnClick = btnRemoveClick
- end
- object btnClearAll: TSpeedButton
- Left = 14
- Top = 80
- Width = 61
- Height = 25
- Caption = 'C&lear All'
- OnClick = btnClearAllClick
- end
- object btnReset: TSpeedButton
- Left = 14
- Top = 108
- Width = 61
- Height = 25
- Caption = 'Re&set'
- OnClick = btnResetClick
- end
- end
- object pnlPlayList: TPanel
- Left = 0
- Top = 81
- Width = 149
- Height = 234
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 3
- object Panel6: TPanel
- Left = 0
- Top = 0
- Width = 16
- Height = 234
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- end
- object Panel4: TPanel
- Left = 16
- Top = 0
- Width = 133
- Height = 234
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 133
- Height = 20
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label4: TLabel
- Left = 4
- Top = 3
- Width = 82
- Height = 13
- Caption = 'A&vailable Tracks:'
- end
- end
- object lbxAvailTracks: TListView
- Left = 0
- Top = 20
- Width = 133
- Height = 209
- HelpContext = 401
- Align = alClient
- OnDblClick = lbxAvailTracksDblClick
- Columns = <
- item
- Caption = 'Track Name'
- Width = 120
- end>
- DragMode = dmAutomatic
- HideSelection = False
- Items.Data = {
- E80000000800000000000000FFFFFFFFFFFFFFFF000000000000000007547261
- 636B203100000000FFFFFFFFFFFFFFFF000000000000000007547261636B2032
- 00000000FFFFFFFFFFFFFFFF000000000000000007547261636B203300000000
- FFFFFFFFFFFFFFFF000000000000000007547261636B203400000000FFFFFFFF
- FFFFFFFF000000000000000007547261636B203500000000FFFFFFFFFFFFFFFF
- 000000000000000007547261636B203600000000FFFFFFFFFFFFFFFF00000000
- 0000000007547261636B203700000000FFFFFFFFFFFFFFFF0000000000000000
- 07547261636B2038}
- MultiSelect = True
- RowSelect = True
- OnEdited = lbxAvailTracksEdited
- OnDragDrop = lbxAvailTracksDragDrop
- OnDragOver = lbxAvailTracksDragOver
- PopupMenu = PopupMenu
- ShowColumnHeaders = False
- TabOrder = 1
- ViewStyle = vsReport
- end
- object Panel11: TPanel
- Left = 0
- Top = 229
- Width = 133
- Height = 5
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- end
- end
- end
- object pnlAvailTracks: TPanel
- Left = 226
- Top = 81
- Width = 165
- Height = 234
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 4
- object Panel9: TPanel
- Left = 0
- Top = 0
- Width = 16
- Height = 234
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object imgHand: TImage
- Left = 0
- Top = 19
- Width = 15
- Height = 11
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- Visible = False
- end
- end
- object Panel8: TPanel
- Left = 16
- Top = 0
- Width = 133
- Height = 234
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object Panel10: TPanel
- Left = 0
- Top = 0
- Width = 133
- Height = 20
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label5: TLabel
- Left = 4
- Top = 3
- Width = 42
- Height = 13
- Caption = '&Play List:'
- end
- end
- object lbxPlayList: TListBox
- Left = 0
- Top = 20
- Width = 133
- Height = 209
- HelpContext = 402
- Align = alClient
- DragMode = dmAutomatic
- ItemHeight = 14
- Items.Strings = (
- 'Track 1'
- 'Track 2'
- 'Track 3'
- 'Track 4'
- 'Track 5'
- 'Track 6'
- 'Track 7'
- 'Track 8')
- MultiSelect = True
- PopupMenu = popWhatsThis
- Style = lbOwnerDrawFixed
- TabOrder = 1
- OnClick = lbxPlayListClick
- OnDblClick = btnRemoveClick
- OnDragDrop = lbxPlayListDragDrop
- OnDragOver = lbxPlayListDragOver
- end
- object Panel12: TPanel
- Left = 0
- Top = 229
- Width = 133
- Height = 5
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- end
- end
- object Panel13: TPanel
- Left = 149
- Top = 0
- Width = 16
- Height = 234
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 2
- end
- end
- object SaveSettings: TgbSaveSettings
- IniFileName = 'RCCD'
- SectionName = 'Track Select Form'
- RegistryKey = '\Software\GaJITS\'
- Left = 356
- Top = 4
- end
- object PopupMenu: TPopupMenu
- Left = 66
- Top = 169
- object WhatsThis1: TMenuItem
- Caption = '&What'#39's This?'
- OnClick = WhatsThis1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object PlayBrief1: TMenuItem
- Caption = 'Play &Brief'
- OnClick = PlayBrief1Click
- end
- object Play1: TMenuItem
- Caption = '&Play'
- OnClick = Play1Click
- end
- end
- object gbMinMax1: TgbMinMax
- MinMaxConstraints.MaxSizeX = 0
- MinMaxConstraints.MaxSizeY = 0
- MinMaxConstraints.MaxPositionX = 0
- MinMaxConstraints.MaxPositionY = 0
- MinMaxConstraints.MinTrackSizeX = 262
- MinMaxConstraints.MinTrackSizeY = 279
- MinMaxConstraints.MaxTrackSizeX = 0
- MinMaxConstraints.MaxTrackSizeY = 0
- MinMaxConstraints.ApplyMaxSizeX = False
- MinMaxConstraints.ApplyMaxSizeY = False
- MinMaxConstraints.ApplyMaxPositionX = False
- MinMaxConstraints.ApplyMaxPositionY = False
- MinMaxConstraints.ApplyMinTrackSizeX = True
- MinMaxConstraints.ApplyMinTrackSizeY = True
- MinMaxConstraints.ApplyMaxTrackSizeX = False
- MinMaxConstraints.ApplyMaxTrackSizeY = False
- Left = 186
- Top = 221
- end
- object popWhatsThis: TPopupMenu
- Left = 284
- Top = 161
- object WhatsThis: TMenuItem
- Caption = '&What'#39's This?'
- OnClick = WhatsThisClick
- end
- end
- end
-